home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / PWAPG10.ZIP / 449.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-08-16  |  2KB  |  173 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 2.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Boolean  BOOLEAN001
  20.     String   STRING001
  21.     String   STRING002
  22.     String   STRING003
  23.     String   STRING004
  24.     String   STRING005
  25.     String   STRING006
  26.     Byte     BYTE001
  27.     Byte     BYTE002
  28.     Byte     BYTE003
  29.     Byte     BYTE004
  30.  
  31. ;------------------------------------------------------------------------------
  32.  
  33.     Gosub LABEL004
  34.     Gosub LABEL001
  35.     End
  36.     :LABEL001
  37.     Newline
  38.     PrintLn ReadLine(STRING001, 1)
  39.     Print ReadLine(STRING001, 2)
  40.     Print " "
  41.     BYTE002 = GetY()
  42.     BYTE003 = GetX()
  43.     Print STRING003 + "  "
  44.     BYTE004 = GetX()
  45.     Print STRING004
  46.     BYTE001 = 2
  47.     Gosub LABEL003
  48.     BOOLEAN001 = 0
  49.     While (BOOLEAN001 == 0) Do
  50.         STRING002 = Asc(Inkey())
  51.         If (STRING002 == 13) Then
  52.             BOOLEAN001 = 1
  53.             Continue
  54.         Endif
  55.         If ((STRING002 == 76) || (STRING002 == 44)) Then
  56.             Dec BYTE001
  57.             If (BYTE001 < 1) BYTE001 = 2
  58.             Gosub LABEL003
  59.             Continue
  60.         Endif
  61.         If ((STRING002 == 82) || (STRING002 == 46)) Then
  62.             Inc BYTE001
  63.             If (BYTE001 > 2) BYTE001 = 1
  64.             Gosub LABEL003
  65.             Continue
  66.         Endif
  67.         If ((STRING002 == 89) || (STRING002 == 121)) Then
  68.             BYTE001 = 2
  69.             Gosub LABEL003
  70.             BOOLEAN001 = 1
  71.             Continue
  72.         Endif
  73.         If ((STRING002 == 78) || (STRING002 == 110)) Then
  74.             BYTE001 = 1
  75.             Gosub LABEL003
  76.             BOOLEAN001 = 1
  77.         Endif
  78.     EndWhile
  79.     Gosub LABEL002
  80.     Return
  81.     :LABEL002
  82.     If (BYTE001 == 1) Then
  83.         DefColor
  84.         Newline
  85.         KbdStuff "N"
  86.     Else
  87.         DefColor
  88.         Newline
  89.         KbdStuff "Y"
  90.     Endif
  91.     Return
  92.     :LABEL003
  93.     Select Case (BYTE001)
  94.         Case 2
  95.             Print Chr(13)
  96.             Forward BYTE003 - 1
  97.             Print STRING003
  98.             Print Chr(13)
  99.             Forward BYTE004 - 1
  100.             Print STRING006
  101.         Case 1
  102.             Print Chr(13)
  103.             Forward BYTE004 - 1
  104.             Print STRING004
  105.             Print Chr(13)
  106.             Forward BYTE003 - 1
  107.             Print STRING005
  108.     End Select
  109.     Return
  110.     :LABEL004
  111.     STRING001 = PPEPath() + "449.CFG"
  112.     STRING003 = ReadLine(STRING001, 3)
  113.     STRING004 = ReadLine(STRING001, 4)
  114.     STRING005 = ReadLine(STRING001, 5)
  115.     STRING006 = ReadLine(STRING001, 6)
  116.     Return
  117.  
  118. ;------------------------------------------------------------------------------
  119. ;
  120. ; Usage report (before postprocessing)
  121. ;
  122. ; ■ Statements used :
  123. ;
  124. ;    1       End
  125. ;    16      Goto 
  126. ;    18      Let 
  127. ;    12      Print 
  128. ;    1       PrintLn 
  129. ;    11      If 
  130. ;    2       DefColor
  131. ;    8       Gosub 
  132. ;    4       Return
  133. ;    1       Inc 
  134. ;    1       Dec 
  135. ;    3       Newline
  136. ;    2       KbdStuff 
  137. ;    4       Forward 
  138. ;
  139. ;
  140. ; ■ Functions used :
  141. ;
  142. ;    2       +
  143. ;    4       -
  144. ;    13      ==
  145. ;    1       <
  146. ;    1       >
  147. ;    9       !
  148. ;    4       ||
  149. ;    4       Chr()
  150. ;    1       Asc()
  151. ;    1       Inkey()
  152. ;    1       PPEPath()
  153. ;    6       ReadLine()
  154. ;    2       GetX()
  155. ;    1       GetY()
  156. ;
  157. ;------------------------------------------------------------------------------
  158. ;
  159. ; Analysis flags : No flag
  160. ;
  161. ;------------------------------------------------------------------------------
  162. ;
  163. ; Postprocessing report
  164. ;
  165. ;    0       For/Next
  166. ;    1       While/EndWhile
  167. ;    6       If/Then or If/Then/Else
  168. ;    1       Select Case
  169. ;
  170. ;------------------------------------------------------------------------------
  171. ;                 AEGiS Corp - Break the routines, code against the machines!
  172. ;------------------------------------------------------------------------------
  173.